home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmiSoft / Util / Misc / Alkotest.lha / Alkotest / Install < prev    next >
Encoding:
Text File  |  2003-01-23  |  2.8 KB  |  159 lines
  1.  
  2. ; Install script
  3.  
  4. ;=============================================================================
  5. (set #bad-kick "You must be using Kickstart 2.04 to install using this script!")
  6. (set #where-prog "Select directory to install aplication")
  7. (set #copylib "Are you installing the gadutil.library")
  8. (set #doc-install "Are you installing the documentation?")
  9. (set #where-doc "Select directory to install the documentation")
  10. (set #sel-doc "Select files to install")
  11. (set #lang-sel "Select language to install")
  12.  
  13. (set #install-msg
  14.     (cat "\n\n Oto skrypt instalacyjny do programu Alkotest\n"
  15.        "Dziëki niemu, juû za parë sekund zainstalujemy\n"
  16.        "tego przydatnego utilitka na Twoim twardziuchu\n\n"
  17.          "Alkotest\n"
  18.          "Copyright © 2003 Marek`fUego`Haê\n"
  19.          "GIFTWARE\n\n"
  20.      "!!! CrEaTeD WiTh AMIGA !!!"
  21.     )
  22. )
  23.  
  24. ;=============================================================================
  25. ; make sure we are running under a 2.04 ROM
  26.  
  27. (if (< (/ (getversion) 65536) 37)
  28.     (
  29.     (abort #bad-kick)
  30.     )
  31. )
  32.  
  33. ;=============================================================================
  34. (set #old-level @user-level)
  35. (user 2)
  36. (message #install-msg)
  37. (user #old-level)
  38.  
  39.  
  40. (set direk
  41.     (askdir
  42.         (prompt "Wskaû miejsce gdzie ma byê zainstalowany Alkotest.\n Nowy katalog zostanie tam automatycznie utworzony.")
  43.         (help "Podaj tylko katalog, ja odwalë resztë brudnej robory :] - Twoja Amiga.")
  44.         (default "ram:")
  45.     )
  46. )
  47.  
  48. (if
  49.     (not(exists(tackon direk "Alkotest")))
  50.         (makedir(tackon direk "Alkotest")
  51.     )
  52. )
  53.  
  54. (set direk(tackon direk "Alkotest"))
  55.  
  56. (complete 10)
  57.  
  58. (copyfiles
  59.     (source "Alkotest")
  60.     (dest direk)
  61.     (infos)
  62.     (noposition)
  63.         )
  64.  
  65. (complete 20)
  66. (if (not(exists "FONTS:mFastpl.font"))
  67.     (
  68.         (copyfiles
  69.             (source "Fonts/mFastpl")
  70.             (dest "FONTS:mFastpl")
  71.             (all)
  72.         )        ))
  73. (copyfiles
  74.     (source "Fonts/mFastpl.font")
  75.     (dest "FONTS:")
  76.      (infos)
  77.     (noposition)
  78. )
  79.  
  80. (if (not(exists "FONTS:PL_Apple.font"))
  81.     (
  82.         (copyfiles
  83.             (source "Fonts/PL_Apple")
  84.             (dest "FONTS:PL_Apple")
  85.             (all)
  86.         )        ))
  87. (copyfiles
  88.     (source "Fonts/PL_Apple.font")
  89.     (dest "FONTS:")
  90.      (infos)
  91.     (noposition)
  92. )
  93.  
  94. (if (not(exists "FONTS:XenPL.font"))
  95.     (
  96.         (copyfiles
  97.             (source "Fonts/XenPL")
  98.             (dest "FONTS:XenPL")
  99.             (all)
  100.         )        ))
  101. (copyfiles
  102.     (source "Fonts/XenPL.font")
  103.     (dest "FONTS:")
  104.      (infos)
  105.     (noposition)
  106. )
  107.  
  108. (if (not(exists "FONTS:XHelveticaPL.font"))
  109.     (
  110.         (copyfiles
  111.             (source "Fonts/XHelveticaPL")
  112.             (dest "FONTS:XHelveticaPL")
  113.             (all)
  114.         )        ))
  115. (copyfiles
  116.     (source "Fonts/XHelveticaPL.font")
  117.     (dest "FONTS:")
  118.      (infos)
  119.     (noposition)
  120. )
  121.  
  122. (complete 40)
  123.  
  124. (copyfiles
  125.     (source "Alkotest.guide")
  126.     (dest direk)
  127.     (infos)
  128.     (noposition)
  129.         )
  130.  
  131.  
  132. (complete 80)
  133.  
  134. (copyfiles
  135.     (source "program")
  136.     (dest direk)
  137.     (infos)
  138.     (noposition)
  139.         )
  140.  
  141. (copyfiles
  142.     (source "title.iff")
  143.     (dest direk)
  144.     (infos)
  145.     (noposition)
  146.         )
  147.  
  148. (copyfiles
  149.     (source "Zwiecha?")
  150.     (dest direk)
  151.     (infos)
  152.     (noposition)
  153.         )
  154.  
  155.  
  156.  
  157. (complete 100)
  158. (exit)
  159.